library(RMySQL)
con <- dbConnect(MySQL(),host="192.168.3.139",
                 dbname="niek_160906",user="niek",password="FbWf8AKC")  
dbListTables(con) # check talbes in db
sqlcmd.utf8<-'SET NAMES utf8'
dbSendQuery(con,sqlcmd.utf8)
sqlcmd<-'select * from ha_info limit 5'
ha_info<-dbGetQuery(con,sqlcmd)
